home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / c64demo.dir / 00020_Exit.ls < prev    next >
Encoding:
Text File  |  1995-12-07  |  572 b   |  30 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("ExitB")
  5.   puppetSprite(14, 1)
  6.   set the castNum of sprite 14 to 40
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 14 to 41
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 14 to 40
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 15
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 14 to 41
  25.   updateStage()
  26.   puppetSprite(14, 0)
  27.   set gNext to "play fade"
  28.   go("start demo")
  29. end
  30.